home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk205 / cmt / examples / rocket.ani < prev    next >
Encoding:
Text File  |  1995-03-20  |  4.7 KB  |  194 lines
  1. ; THE ROCKET-DEMO
  2. ; I knew I ever would be able to play along with my own vectorball routines!
  3. ; © :
  4. ; 17-Jul-91    KP van Gend    a rocket flies around.
  5. ; 23-Jul-91    KP van Gend    Added something looking like stars in the
  6. ;                background. Looks quite ugly sometimes.
  7. ; 27-Jul-91    R Knaapen    added some BALLS #ON#/#OFF#.
  8. ; 11-Aug-91    KP van Gend    added VIPER  &  EXPLOSION.
  9. ;
  10. ;
  11. ; This file is written to show the possibilities of ChemniMaTe...
  12. ; 
  13.  
  14. Data 1
  15. ;r   ang  hei  typ lin    ;nr    (comment)
  16. 37    0   -5   H6   4    ;1    one of basement 
  17. 37   21   -5   H6   4    ;2    two of basement
  18. 37   43   -5   H6   4    ;3    three of basement
  19.  0    0   0    C0   4    ;4    body of rocket
  20.  0    0   50   Hr20 4    ;5    antenna of rocket.
  21. Data 11 ;skip a few...
  22. 60   0    0    In12 12    ;11    here below are the data for the stars.
  23. 61   0      0    In12 11    ;12
  24. 70   19   0    In12 14    ;13
  25. 71   19   0    In12 13    ;14
  26. 60   25   0    In12 16    ;15
  27. 60   25      0    In12 15    ;16
  28. 70   48   0    In12 18    ;17
  29. 71   48   0    In12 17    ;18
  30. 30    7   0    In12 20    ;19
  31. 30    7      0    In12 19    ;20
  32. 80   35   0    In12 22    ;21
  33. 81   35   0    In12 21    ;22
  34. 20   55   0    In12 24    ;23
  35. 20   54      0    In12 23    ;24
  36. 90   11   0    In12 26    ;25
  37. 91   11   0    In12 25    ;26
  38. 120  22   0    In12 28  ;27
  39. 120  22   0    In12 27    ;28
  40. 120  42   0    In12 30    ;29
  41. 120  42   0    In12 29    ;30
  42. 120   2   0    In12 32    ;31
  43. 120   2   0    In12 31    ;32
  44. EndData
  45.  
  46.  DisplayMode 1    ;two-dimensional look.
  47.  
  48.  THeader "      Do You Know What This Is ???"
  49.  TFooter "          Guess You Don't Know!"
  50.  
  51.  I:=120;
  52. Repeat 2
  53.   Loop
  54.     Middle (160 , 120)    ; Set Middle of screen.
  55.     Balls #Off#        ; this one is to improve the playing speed.
  56.     ShowNS 11 32
  57.     Balls #On#
  58.     CM 11 32 1 -3
  59.     Middle (#i# , 125)    ; Set Middle of screen.
  60.     Show 1 1 5
  61.     i:= [#i# + 2]    ; Move spaceship to the right...
  62.   Until #I# >= 200
  63.   TFooter "   Is it a molecule? Is it an alien?"
  64.   Loop
  65.     Middle (160 , 120)    ; Set Middle of screen.
  66.     Balls #Off#        ; The stars consist of lines, and In12 -> no need
  67.     ShowNS 11 32
  68.     Balls #On#        ; To display 20 invisibles. Thus, set Balls off.
  69.     CM 11 32 1 -3
  70.     Middle (#i# , 125)    ; Set Middle of screen.
  71.     Show 1 1 5
  72.     i:= [#i# - 2]    ; Move spaceship to the right...
  73.   Until 120 >= #I# 
  74. EndRepeat
  75.  
  76. ; empty screen 
  77.  TFooter " "
  78.  Theader " "
  79.  SPages
  80.  
  81.  DisplayMode 0    ;normal 3-d look.
  82. Data 1
  83. ;r   ang  hei  typ lin    ;nr    comment
  84. 59   16    0    C0  1    ;1    back-backbody
  85. 63   16    0    C0  2    ;2    front-backbody
  86. 88   14   -26   H6  2    ;3      front-leg
  87. 38   13   -26   H6  1   ;4    back-leg
  88. 61   13    31   H6  1   ;5    upper-leg
  89. 64   19    0    C0  6    ;6    back-frontbody
  90. 65   19    0    C0  7    ;7    front-frontbody
  91. 81   23    0   Hr20 6    ;8    top 
  92. 81   23    0   In12 7    ;9    top (second line)
  93. 61   15    0   Hr22 10  ;10    fire...
  94. EndData
  95.  
  96.  Middle (160 , 120)    ; Set Middle of screen.
  97. Repeat 33
  98.   Show 1 1 9
  99.   Show 1 1 10
  100. EndRepeat
  101.  THeader "     NO! Geezz, It's a Rocket..."
  102.  Tfooter "Didnt know you could do such with CHMNMT"
  103. Repeat 33
  104.   DisplayMode 1
  105.     Balls #Off#
  106.     ShowNS 11 32    ;show stars
  107.     Balls #On#
  108.     CM 11 32 1 -1
  109.   DisplayMode 0
  110.     Show 1 1 9        ;show rocket without fire
  111.   DisplayMode 1
  112.     Balls #Off#
  113.     ShowNS 11 32    ;show stars
  114.     Balls #On#
  115.     CM 11 32 1 -1
  116.   DisplayMode 0
  117.     Show 1 1 10        ;show rocket WITH fire.
  118. EndRepeat
  119.  
  120.  
  121. Data 12
  122. ;r   ang  hei  typ lin    ;nr    (comment)
  123. 20    0   14   In12 13    ;12
  124. 20   32   14   In12 14  ;13
  125. 30   16      14   In12 15    ;14
  126. 70   16    0   C0   16  ;15
  127. 30   16  -14   In12 17    ;16
  128. 20   32  -14   In12 18    ;17
  129. 20    0  -14   In12 19    ;18
  130. 32    0    0   C0   12    ;19
  131. 20   32   14   In12 21    ;20
  132. 32   32    0   C0   17    ;21
  133. 30   16  -14   In12 18    ;22
  134. 30   16   14   In12 12    ;23
  135. 32    0    0   In12 15    ;24
  136. 32   32    0   In12 15    ;25
  137.  
  138. EndData
  139.  
  140. DisplayMode 0
  141.   Middle (160, 100)
  142.   Balls #Off#
  143.   Theader " "
  144.   TFooter " "
  145.   DAn:= 0;
  146.   Ang:= 2;
  147.   Show 1 12 25
  148.   Wait 20;
  149.  
  150.   Text (74, 165) "VIPER class (POLICE SHIP)"
  151.   Show 1 12 25
  152.   Wait 20
  153.   Text (74, 165) "VIPER class (POLICE SHIP)"
  154.   Text (14, 182) "ARMAMENTS: PulseLaser & Seeker Missiles"
  155.   Text (14, 190) "VELOCITY: 0.32 LM     CREW: 1 (up to 10)"
  156.   Text (14, 198) "MOTORS: deLacy Super Thrust VC10"
  157.   Show 1 12 25
  158.  
  159.   Wait 150;
  160.   DAn:= 2;        /* fast(er) turn */
  161.  
  162. Repeat 24
  163.   Text (74, 165) "VIPER class (POLICE SHIP)"
  164.   Show 1 12 25
  165. EndRepeat
  166.  
  167.   Text (14, 200) "This craft makes a warp to our rocket."
  168.   TFooter "Guess what will happen when they meet ?"
  169.   SPages
  170.   Wait 150
  171.  
  172.   Dan:= 1;
  173.   CM 1 10 1 -50
  174.  
  175. Repeat 13
  176.   Middle (100, 125)
  177.   Balls #ON#
  178.   CM 1 10 1 -1    ;I don't want to let the rocket turn as fast as the viper
  179.   ShowNS 1 10;
  180.   Middle (210,125)
  181.   Balls #Off#
  182.   Show 1 12 25    ;show the viper
  183. EndRepeat
  184.   Wait 50
  185.  
  186. ; B O O M ! ! 
  187.   TFooter "            B O O M ! !"
  188.   Text (0,125) "B O O M !"
  189.   Dan:= 0
  190.   Show 1 12 25
  191.  Wait 200
  192. ; That's all folks!!! How did you like it?
  193. ; Nah, better not say...
  194.